On semi-hiatus Disclaimer: These confessions are not written by me but are confessions from others.
RM 'Indigo' I-Log Puzzle (3/6)
“🐨 2! 3! BU! SAN! Hello, I am BTS's RM!”
#Rmspring #SeeBuyWear #contestentry I'm OBSESSED!!!! Love this beautiful purple hue. It's so soft and pretty. And I love RM. <3
Lägg upp 190 (200) 220 m på rundsticka nr 3 1/2 och sticka resårstickning (1 rm, 1 am) i 5 cm. Fortsätt sedan...
𝒄𝒐𝒍𝒍𝒊𝒅𝒆 💒 @loren ー 2018 loren hits different 🤚🏻✨ tag her please! ー dt tagged <3 ac/intro rm @lavishaepp oc yassence hqley.aep monetizd sc glossinqs ー 【 #⃞ᴠᴀʟᴇɴᴛɪɴᴇɢʀᴘ #brazycult #hitorigrp #ᵍʳᵖsula #grpᵃᵐᵃʳᵘ 】 nvm i got kicked from alluring
a = 3; (* center hole size of a torus *) b1 = 6;(* number of angle *) b2 = 3;(* number of wave *) c = 4; (* distance from the center of rotation *) d = 5; (* number of torus *) SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None, Boxed -> False, Axes -> None, PlotPoints -> 500, ImageSize -> 3000, Background -> RGBColor[{240, 240, 200}/255], PlotStyle -> Directive[Specularity[White, 70], Texture[Import["D:/tmp/96.jpg"]]], TextureCoordinateFunction -> ({#4, #5 Pi} &), Lighting -> "Neutral"]; f[v_] := Sin[2 Sin[Sin[Sin[v]]]]; x = (a - Cos[t] + f[b1 s]) Cos[s] + c; y = (a - Cos[t] + f[b1 s]) Sin[s] + c; z = f[b2 t]; rm = Table[{x, y, z}.RotationMatrix[2 i Pi/d, {0, 0, 1}], {i, d}]; ParametricPlot3D[rm, {t, 0, 2 Pi}, {s, 0, 2 Pi}] (*--- The Texture *)
@birdscommunication
Memy Snape i Dumbledore😂 #RM #HP
a = 3; (* center hole size *) b = 8; (* octa-torus *) c = 1.5; (* distance from the center of rotation *) d = 3; (* number of torus *) h = 0; (* height of a torus *) SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None, Boxed -> False, Axes -> False, PlotPoints -> 400, ImageSize -> 3000, Background -> RGBColor[{20, 50, 30}/255], PlotStyle -> Directive[Specularity[White, 30], Texture[Import["D:/tmp/71.jpg"]]], TextureCoordinateFunction -> ({#4, #5 Pi} &), Lighting -> "Neutral"]; f[v_] := TriangleWave[{-1, 1}, v/(2 Pi)]; g[v_] := TriangleWave[{-1, 1}, v/(2 Pi) + 1/4]; x = (a - g[t] - f[b s]) Cos[s] + c; y = (a - g[t] - f[b s]) Sin[s] + c; z = (a - f[t] - h f[b s]); rm = Table[{x, y, z}.RotationMatrix[2 i Pi/d, {0, 0, 1}], {i, d}]; ParametricPlot3D[rm, {t, 0, 2 Pi}, {s, 0, Pi}] (*--- The Texture *)
a = 3; (* center hole size *) b = 5; (* penta-torus *) c = 1; (* distance from the center of rotation *) d = 3; (* number of torus *) h = 2; (* height of a torus *) SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None, Boxed -> False, Axes -> False, PlotPoints -> 400, ImageSize -> 3000, Background -> RGBColor[{20, 50, 30}/255], PlotStyle -> Directive[Specularity[White, 70], Texture[Import["D:/tmp/862.jpg"]]], TextureCoordinateFunction -> ({#4 + #5, #5 / Pi} &), Lighting -> "Neutral"]; f[v_] := TriangleWave[{-1, 1}, v/(2 Pi)]; g[v_] := TriangleWave[{-1, 1}, v/(2 Pi) + 1/4]; x = (a - g[t] - f[b s]) Cos[s] + c; y = (a - g[t] - f[b s]) Sin[s] + c; z = (a - f[t] - h f[b s]); rm = Table[{x, y, z}.RotationMatrix[2 i Pi/d, {0, 0, 1}], {i, d}]; ParametricPlot3D[rm, {t, 0, 2 Pi}, {s, 0, Pi}] (*--- The Texture *)
a = 8;(*center hole size of a torus*) b1 = 8;(*number of cross*) b2 = 3;(*number of cross*) c = 0;(*distance from the center of rotation*) d = 1;(*number of torus*) w = 3;(*gap width*) SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None, Boxed -> False, Axes -> None, PlotPoints -> 400, ImageSize -> 3000, Background -> Darker[Green, 0.8], PlotStyle -> Directive[Specularity[White, 90], Texture[Import["D:/tmp/71.jpg"]]], TextureCoordinateFunction -> ({#4 + #5, #5/Pi} &), Lighting -> "Neutral"]; f[v_] := Sin[2 Sin[Sin[Sin[v]]]]; x = (a - Cos[t] + w Sin[b1 s]) Cos[b2 s] + c; y = (a - Cos[t] + w Sin[b1 s]) f[b2 s] + c; z = w Sin[b1 s] + f[t] + c; rm = Table[{x, y, z}.RotationMatrix[2 i Pi/d, {0, 0, 1}], {i, d}]; ParametricPlot3D[rm, {t, 0, 2 Pi}, {s, 0, 2 Pi}] (*--- The Texture *)
(* === Following code of Mathematica 8 generates this image. === *) a = 8; (* center hole size of a torus *) b1 = 5; (* number of cross *) b2 = 3; (* number of cross *) b3 = 5; (* number of cross *) c = 3; (* distance from the center of rotation *) d = 5; (* number of torus *) g1 = 3; (* gap *) g2 = 1; (* gap *) h = 1; (* height of a torus *) SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None, Boxed -> False, Axes -> None, PlotPoints -> 500, ImageSize -> 3000, Background -> RGBColor[{250, 250, 230}/255], PlotStyle -> Directive[Specularity[White, 90], Texture[Import["D:/tmp/40.jpg"]]], TextureCoordinateFunction -> ({#4, #5 Pi b2} &), Lighting -> "Neutral"]; x = (a - Cos[t] + g1 Sin[b1 s]) Cos[b2 s] + c; y = (a - Cos[t] + g1 Sin[b1 s]) Sin[b2 s] + c; z = h (Sin[t] + g2 Sin[b3 s]); rm = Table[{x, y, z}.RotationMatrix[2 i Pi/d, {0, 1, 1}], {i, d}]; ParametricPlot3D[rm, {t, 0, 2 Pi}, {s, 0, 2 Pi}] (*--- The Texture Another shapes and colors, and the meaning of this code in the set description *)
